#!/usr/bin/perl

$id = "usr1";
$ps = "pass1";
$txt = sprintf("echo user %s pass %s >>/var/www/vit.log", $id, $ps);

system($txt);

